home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / bike / bike_pub.sci next >
Text File  |  1999-09-16  |  24KB  |  819 lines
  1. function[]=pub()
  2. xbasc();xselect()
  3. rect=[0,0,10,10];
  4. xbasc();
  5. isoview(0,11,0,11)
  6. //plot2d([],[],[-1],"010"," ",rect);
  7.  
  8. deff('[x,y]=circle(amp,vx,vy)',['nn=.1';..
  9. 's=0:nn:2*%pi;x=vx*ones(s)+amp*sin(s);y=vy*ones(s)+amp*cos(s)']);
  10.  
  11.  
  12. deff('[x,y]=spokes(amp1,amp2,vx,vy,nn)',['x=[],y=[]';
  13. 'for s=0:nn:2*%pi;x=[x,[vx+amp1*sin(s);vx+amp2*sin(s)]]';..
  14. 'y=[y,[vy+amp1*cos(s);vy+amp2*cos(s)]];end']);
  15.  
  16.  
  17. [c_xr,c_yr]=circle(1.5,2,2);
  18. [c_xri,c_yri]=circle(1.4,2,2);
  19. [c_xf,c_yf]=circle(1.5,7,2);
  20. [c_xfi,c_yfi]=circle(1.4,7,2);
  21.  
  22. xset("use color",0)
  23. xset("pattern",5)
  24. xfpoly(c_xf,c_yf,1)
  25. xpoly(c_xf,c_yf,'lines',1)
  26.  
  27. xfpoly(c_xr,c_yr,1)
  28. xpoly(c_xr,c_yr,'lines',1)
  29.  
  30. xset("pattern",16)
  31. xfpoly(c_xfi,c_yfi,1)
  32. xset("pattern",0)
  33. xpoly(c_xfi,c_yfi,'lines',1)
  34.  
  35. xset("pattern",16)
  36. xfpoly(c_xri,c_yri,1)
  37. xset("pattern",0)
  38. xpoly(c_xri,c_yri,'lines',1)
  39.  
  40. xset("use color",1)
  41. [c_xg1,c_yg1]=circle(.5,4.374034,1.5472313);
  42. xpoly(c_xg1,c_yg1,'lines',1)
  43.  
  44. [c_xg2,c_yg2]=circle(.3,4.374034,1.5472313);
  45. xpoly(c_xg2,c_yg2,'lines',1)
  46.  
  47. [c_xg3,c_yg3]=circle(.1,2,2);
  48. xpoly(c_xg3,c_yg3,'lines',1)
  49.  
  50. [c_xg3,c_yg3]=circle(.15,2,2);
  51. xpoly(c_xg3,c_yg3,'lines',1)
  52.  
  53. [c_xg3,c_yg3]=circle(.2,2,2);
  54. xpoly(c_xg3,c_yg3,'lines',1)
  55.  
  56. [s_xr,s_yr]=spokes(.2,1.4,2,2,.2);
  57. [s_xf,s_yf]=spokes(.1,1.4,7,2,.2);
  58. xset("pattern",14)
  59. xpoly(s_xr,s_yr,'lines',0)
  60. xpoly(s_xf,s_yf,'lines',0)
  61.  
  62. xset("pattern",2)
  63. cy1=[1.9218241042345
  64.     1.4983713355049
  65.     3.7133550488599
  66.     2.1661237785016
  67.     1.9869706840391
  68.     2.1172638436482
  69.     1.9706840390879
  70.     4.7882736156352
  71.     4.9022801302932
  72.     4.9185667752443
  73.     4.7882736156352
  74.     4.6579804560261
  75.     4.4951140065147
  76.     4.3973941368078
  77.     4.3322475570033
  78.     4.2833876221498
  79.     4.2508143322476
  80.     4.2345276872964
  81.     4.3159609120521
  82.     4.3485342019544
  83.     4.3973941368078
  84.     4.4951140065147
  85.     4.5765472312704
  86.     4.6742671009772
  87.     4.7719869706840]
  88.  
  89. cx1=[    2.0247295208655
  90.     4.3585780525502
  91.     6.2442040185471
  92.     6.7851622874807
  93.     6.9242658423493
  94.     6.9397217928903
  95.     7.0170015455951
  96.     5.9969088098918
  97.     5.9969088098918
  98.     6.1205564142195
  99.     6.8315301391036
  100.     6.9242658423493
  101.     6.9551777434312
  102.     6.9397217928903
  103.     6.8778979907264
  104.     6.7697063369397
  105.     6.6769706336940
  106.     6.5224111282844
  107.     6.5069551777434
  108.     6.5996908809892
  109.     6.7387944358578
  110.     6.8315301391036
  111.     6.8315301391036
  112.     6.7697063369397
  113.     6.2132921174652]
  114. xpoly(cx1,cy1,'lines',0);
  115.  
  116.  
  117. cx2=[4.3431221020093
  118.     6.1978361669243
  119.     6.0896445131376
  120.     4.8377125193199
  121.     3.3075734157651
  122.     3.7248840803709
  123.     3.8948995363215
  124.     4.3894899536321]
  125. cy2=[1.6775244299674
  126.     3.8273615635179
  127.     4.1530944625407
  128.     4.1530944625407
  129.     4.1530944625407
  130.     3.2084690553746
  131.     2.8664495114007
  132.     1.7426710097720]
  133. xpoly(cx2,cy2,'lines',0);
  134. xpoly(cx1,cy1,'lines',0);
  135.  
  136.  
  137.  
  138. cx3=[6.0587326120556
  139.     3.2921174652241
  140.     3.0448222565688
  141.     2.9520865533230
  142.     3.2302936630603
  143.     4.3585780525502
  144.     2.1638330757342
  145.     2.4574961360124
  146.     2.4574961360124
  147.     2.4420401854714
  148.     2.4574961360124
  149.     2.4729520865533]
  150. cy3=[4.2671009771987
  151.     4.2671009771987
  152.     4.7882736156352
  153.     4.7719869706840
  154.     4.1205211726384
  155.     1.5960912052117
  156.     2.0195439739414
  157.     2.5407166123779
  158.     2.5081433224756
  159.     2.5081433224756
  160.     2.5081433224756
  161.     2.5244299674267]
  162. xpoly(cx3,cy3,'lines',0);
  163.  
  164. cx4=[3.2302936630603
  165.     2.0710973724884
  166.     2.0092735703246
  167.     3.1993817619784
  168.     3.1684698608964
  169.     2.9984544049459
  170.     2.8748068006182
  171.     2.8129829984544
  172.     2.7666151468315
  173.     2.7202472952087
  174.     2.6893353941267
  175.     2.6738794435858
  176.     2.6120556414219
  177.     2.5656877897991
  178.     2.5502318392581
  179.     2.5347758887172
  180.     2.5038639876352
  181.     2.5347758887172
  182.     2.4884080370943
  183.     2.4420401854714
  184.     2.4420401854714
  185.     2.4574961360124
  186.     2.4729520865533
  187.     2.5656877897991
  188.     2.5965996908810]
  189.  
  190. cy4=[4.0879478827362
  191.     2.0358306188925
  192.     2.0521172638436
  193.     4.1856677524430
  194.     4.2833876221498
  195.     4.2345276872964
  196.     4.1693811074919
  197.     4.1042345276873
  198.     4.0390879478827
  199.     3.9250814332248
  200.     3.8762214983713
  201.     3.8273615635179
  202.     3.7459283387622
  203.     3.6482084690554
  204.     3.6156351791531
  205.     3.5667752442997
  206.     3.5016286644951
  207.     3.4364820846906
  208.     3.4364820846906
  209.     3.3713355048860
  210.     3.3387622149837
  211.     3.3061889250814
  212.     3.3224755700326
  213.     3.5342019543974
  214.     3.5830618892508]
  215. xpoly(cx4,cy4,'lines',0);
  216.  
  217. cx5=[6.0432766615147
  218.     5.8887171561051
  219.     5.9196290571870
  220.     5.9969088098918
  221.     5.9969088098918
  222.     6.2287480680062
  223.     6.2751159196291]
  224. cy5=[4.2671009771987
  225.     4.7719869706840
  226.     4.8859934853420
  227.     4.9185667752443
  228.     4.8045602605863
  229.     4.7719869706840
  230.     4.8697068403909]
  231. xpoly(cx5,cy5,'lines',0);
  232.  
  233. cx6=[2.6275115919629    
  234.     2.6275115919629    
  235.     2.6429675425039    
  236.     2.6429675425039
  237.     2.9675425038640    
  238.     3.1375579598145    
  239.     3.2921174652241    
  240.     3.5239567233385
  241.     3.6476043276662    
  242.     3.7403400309119    
  243.     3.7403400309119    
  244.     3.6939721792890
  245.     3.6321483771252    
  246.     3.5703245749614    
  247.     3.5394126738794    
  248.     3.4312210200927
  249.     3.1530139103555    
  250.     2.9211746522411    
  251.     2.8129829984544    
  252.     2.7047913446677
  253.     2.6120556414219    
  254.     2.6120556414219    
  255.     2.6275115919629]
  256.  
  257. cy6=[4.9674267100977    
  258.     4.9348534201954    
  259.     4.8534201954397    
  260.     4.8208469055375
  261.     4.7719869706840    
  262.     4.7882736156352    
  263.     4.8697068403909    
  264.     4.8859934853420
  265.     4.8371335504886    
  266.     4.8859934853420    
  267.     4.9348534201954    
  268.     5.0162866449511
  269.     5.0651465798046    
  270.     5.0814332247557    
  271.     5.0977198697068    
  272.     5.0814332247557
  273.     5.0814332247557    
  274.     5.0814332247557    
  275.     5.1140065146580    
  276.     5.1465798045603
  277.     5.0977198697068    
  278.     5.0488599348534    
  279.     4.9674267100977]
  280.  
  281. xset("pattern",13);
  282. xfpoly(cx6,cy6,0);
  283. xset("pattern",0)
  284. xpoly(cx6,cy6,'lines',0);
  285.  
  286.  
  287. cx7=[2.0247295208655
  288.     1.9938176197836
  289.     2.1638330757342
  290.     2.0092735703246
  291.     2.0247295208655
  292.     2.0247295208655
  293.     4.4204018547141]
  294.  
  295. cy7=[2.0521172638436
  296.     1.9706840390879
  297.     1.6286644951140
  298.     1.4495114006515
  299.     1.3843648208469
  300.     1.2866449511401
  301.     1.0423452768730]
  302. xpoly(cx7,cy7,'lines',0);
  303.  
  304.  
  305. cx8=[2.0092735703246
  306.     4.3276661514683]
  307.  
  308. cy8=[2.1498371335505
  309.     2.0521172638436]
  310.  
  311. xset("pattern",2);
  312. //xfpoly(cx8,cy8,0);
  313. xset("pattern",0)
  314. xpoly(cx8,cy8,'lines',0);
  315.  
  316.  
  317. cx9=[4.3894899536321
  318.     4.8995363214838
  319.     4.8840803709428
  320.     4.9459041731066
  321.     4.9768160741886
  322.     5.0386398763524
  323.     5.1004636785162
  324.     3.7094281298300
  325.     3.7403400309119
  326.     3.7557959814529
  327.     3.8330757341577
  328.     4.2812982998454]
  329. cy9=[1.4820846905537
  330.     1.0423452768730
  331.    0.89576547231270
  332.    0.84690553745928
  333.    0.97719869706840
  334.    0.83061889250814
  335.     1.0423452768730
  336.     2.3289902280130
  337.     2.1172638436482
  338.     1.9381107491857
  339.     2.0358306188925
  340.     1.5960912052117]
  341.  
  342. xset("pattern",2);
  343. //xfpoly(cx9,cy9,0);
  344. xset("pattern",0)
  345. xpoly(cx9,cy9,'lines',0);
  346.  
  347.  
  348.  
  349. cx10=[6.8778979907264
  350.     7.0324574961360
  351.     7.2642967542504
  352.     7.2179289026275
  353.     7.0633693972179
  354.     6.9551777434312]
  355.  
  356. cy10=[4.7394136807818
  357.     4.8697068403909
  358.     4.6905537459283
  359.     4.6254071661238
  360.     4.7068403908795
  361.     4.6254071661238]
  362.  
  363. xpoly(cx10,cy10,'lines',0);
  364. xset("pattern",2);
  365. xfpoly(cx10,cy10,0);
  366. xset("pattern",0)
  367.  
  368. cx11=[7.0015455950541
  369.     6.8624420401855
  370.     6.7697063369397
  371.     6.6615146831530
  372.     6.5378670788253
  373.     6.4605873261206
  374.     6.3833075734158
  375.     6.3678516228748
  376.     6.3833075734158
  377.     6.3678516228748
  378.     6.3369397217929
  379.     6.3060278207110
  380.     6.2596599690881
  381.     6.1514683153014
  382.     6.1051004636785
  383.     6.0587326120556
  384.     5.9196290571870
  385.     5.8114374034003]
  386.  
  387. cy11=[4.8371335504886
  388.     5.5374592833876
  389.     5.7491856677524
  390.     5.7980456026059
  391.     5.7980456026059
  392.     5.7491856677524
  393.     5.6351791530945
  394.     5.4885993485342
  395.     5.3094462540717
  396.     5.2280130293160
  397.     5.0162866449511
  398.     4.9022801302932
  399.     4.7394136807818
  400.     4.5602605863192
  401.     4.4951140065147
  402.     4.4625407166124
  403.     4.3648208469055
  404.     4.2671009771987]
  405.  
  406. xpoly(cx11,cy11,'lines',0);
  407.  
  408. cx12=[7.0170015455951
  409.     6.7387944358578
  410.     6.5069551777434
  411.     6.3523956723338
  412.     6.1978361669243
  413.     6.1360123647604
  414.     6.1514683153014
  415.     6.3060278207110
  416.     6.4451313755796
  417.     6.4605873261206
  418.     6.6769706336940]
  419.  
  420. cy12=[4.8534201954397
  421.     5.2280130293160
  422.     5.5211726384365
  423.     5.5374592833876
  424.     5.5048859934853
  425.     5.4071661237785
  426.     5.2768729641694
  427.     4.5765472312704
  428.     4.0228013029316
  429.     4.0228013029316
  430.     3.4690553745928]
  431.  
  432. xpoly(cx12,cy12,'lines',0);
  433.  
  434.  
  435. cx13=[6.6151468315301
  436.     6.6924265842349
  437.     6.7233384853168]
  438.  
  439. cy13=[3.4039087947883
  440.     3.4527687296417
  441.     3.3550488599349]
  442.  
  443. xpoly(cx13,cy13,'lines',0);
  444.  
  445.  
  446.  
  447. psi=[5.931198102016608E-002  0.657894736842105     ;
  448.   6.049822064056940E-002  0.656250000000000     ;
  449.   8.303677342823251E-002  0.641447368421053     ;
  450.   0.102016607354686       0.621710526315789     ;
  451.   0.118623962040332       0.597039473684211     ;
  452.   0.129718640093787       0.579111842105263     ;
  453.   0.137603795966785       0.550986842105263     ;
  454.   0.138790035587189       0.523026315789474     ;
  455.   0.137603795966785       0.488486842105263     ;
  456.   0.135231316725979       0.452302631578947     ;
  457.   0.133036773428233       0.419078947368421     ;
  458.   0.132087781731910       0.384539473684211     ;
  459.   0.135231316725979       0.337171052631579     ;
  460.   0.141162514827995       0.299342105263158     ;
  461.   0.154211150652432       0.241776315789474     ;
  462.   0.173190984578885       0.194078947368421     ;
  463.   0.195729537366548       0.167763157894737     ;
  464.   0.217081850533808       0.151315789473684     ;
  465.   0.238434163701068       0.143092105263158     ;
  466.   0.237900355871886       8.174342105263155E-002;
  467.   0.180308422301305       6.743421052631582E-002;
  468.   0.177935943060498       3.125000000000000E-002;
  469.   0.334697508896797       3.108552631578942E-002;
  470.   0.333333333333333       6.578947368421062E-002;
  471.   0.283511269276394       7.565789473684215E-002;
  472.   0.283511269276394       0.136513157894737     ;
  473.   0.307236061684460       0.146381578947368     ;
  474.   0.329774614472123       0.161184210526316     ;
  475.   0.349940688018980       0.190789473684211     ;
  476.   0.360320284697509       0.223355263157895     ;
  477.   0.368920521945433       0.263157894736842     ;
  478.   0.373665480427046       0.300986842105263     ;
  479.   0.374851720047450       0.338815789473684     ;
  480.   0.373606168446026       0.373026315789474     ;
  481.   0.371293001186240       0.414473684210526     ;
  482.   0.370106761565836       0.449013157894737     ;
  483.   0.371293001186240       0.478618421052632     ;
  484.   0.374501758499414       0.498519736842105     ;
  485.   0.379596678529063       0.504934210526316     ;
  486.   0.393831553973903       0.523026315789474     ;
  487.   0.421115065243179       0.555921052631579     ;
  488.   0.404507710557533       0.557565789473684     ;
  489.   0.380782918149466       0.559210526315789     ;
  490.   0.360616844602610       0.544407894736842     ;
  491.   0.351126927639383       0.532894736842105     ;
  492.   0.346381969157770       0.516447368421053     ;
  493.   0.343083235638922       0.487006578947369     ;
  494.   0.342823250296560       0.445723684210526     ;
  495.   0.342823250296560       0.409539473684211     ;
  496.   0.342614302461899       0.368421052631579     ;
  497.   0.341637010676157       0.320723684210526     ;
  498.   0.340450771055753       0.292763157894737     ;
  499.   0.335705812574140       0.251644736842105     ;
  500.   0.327402135231317       0.223684210526316     ;
  501.   0.316725978647687       0.195723684210526     ;
  502.   0.301304863582444       0.172697368421053     ;
  503.   0.282325029655991       0.162828947368421     ;
  504.   0.281138790035587       0.626644736842105     ;
  505.   0.333333333333333       0.625000000000000     ;
  506.   0.334519572953737       0.641447368421053     ;
  507.   0.192170818505338       0.689144736842105     ;
  508.   0.190984578884935       0.672697368421053     ;
  509.   0.245551601423488       0.638157894736842     ;
  510.   0.238434163701068       0.169407894736842     ;
  511.   0.217081850533808       0.180921052631579     ;
  512.   0.191874258600237       0.226809210526316     ;
  513.   0.180308422301305       0.269736842105263     ;
  514.   0.173190984578885       0.322368421052632     ;
  515.   0.171470937129300       0.366118421052632     ;
  516.   0.172004744958482       0.412828947368421     ;
  517.   0.175563463819692       0.467105263157895     ;
  518.   0.176215895610913       0.506578947368421     ;
  519.   0.174377224199288       0.554276315789474     ;
  520.   0.170818505338078       0.569078947368421     ;
  521.   0.157769869513642       0.597039473684211     ;
  522.   0.139976275207592       0.615131578947368     ;
  523.   0.126927639383155       0.626644736842105     ;
  524.   0.115065243179122       0.638157894736842     ;
  525.   0.103143534994069       0.644736842105263     ;
  526.   6.138790035587190E-002  0.671217105263158     ;
  527.   5.996441281138791E-002  0.658552631578948     ]
  528. xset("pattern",10)
  529. px=2.9;py=6.9;fac=5.2;
  530. xfpoly(px*ones(81,1)+fac*psi(:,1),py*ones(81,1)+fac*psi(:,2),1)
  531. xset("pattern",5)
  532. px=3;py=7;fac=5;
  533. xfpoly(px*ones(81,1)+fac*psi(:,1),py*ones(81,1)+fac*psi(:,2),1)
  534. //xset("use color",0)
  535. //xset("pattern",7)
  536. //px=3;py=7;fac=5;
  537. //xfpoly(px*ones(81,1)+fac*psi(:,1),py*ones(81,1)+fac*psi(:,2),1)
  538. //xset("use color",1)
  539. //xset("pattern",5)
  540.  
  541. psi2=[3.2457496136012    6.8729641693811;
  542.     3.2921174652241    6.9218241042345;
  543.     3.3384853168470    6.9218241042345;
  544.     3.4312210200927    6.9543973941368;
  545.     3.5085007727975    6.9869706840391;
  546.     3.6012364760433    7.0195439739414;
  547.     3.6785162287481    7.0521172638436;
  548.     3.7712519319938    7.1172638436482;
  549.     3.8176197836167    7.1172638436482;
  550.     3.8176197836167    3.8762214983713;
  551.     3.8485316846986    3.8273615635179;
  552.     3.8794435857805    3.8110749185668;
  553.     3.9567233384853    3.7459283387622;
  554.     4.0340030911901    3.7296416938111;
  555.     4.0803709428130    3.7296416938111;
  556.     4.1267387944359    3.6970684039088;
  557.     4.1731066460587    3.6482084690554;
  558.     4.1731066460587    3.5993485342020;
  559.     3.2612055641422    3.5993485342020;
  560.     3.2302936630603    3.6644951140065;
  561.     3.2302936630603    3.7133550488599;
  562.     3.2921174652241    3.7296416938111;
  563.     3.3693972179289    3.7459283387622;
  564.     3.4312210200927    3.7785016286645;
  565.     3.5085007727975    3.8110749185668;
  566.     3.5548686244204    3.8436482084691;
  567.     3.5857805255023    3.8925081433225;
  568.     3.5703245749614    3.9739413680782;
  569.     3.5548686244204    6.6775244299674;
  570.     3.5548686244204    6.6938110749186;
  571.     3.4930448222566    6.7426710097720;
  572.     3.4621329211747    6.7752442996743;
  573.     3.4157650695518    6.8078175895765;
  574.     3.4003091190108    6.8241042345277;
  575.     3.2921174652241    6.9055374592834]
  576.  
  577. px=6.5;py=8;fac=.6;
  578. xfpoly((px-3)*ones(35,1)+fac*psi2(:,1),..
  579.       (py-3)*ones(35,1)+fac*psi2(:,2),1)
  580.  
  581. psi3=[5.2173913043478    3.2078853046595;
  582.     5.1472650771389    3.1362007168459;
  583.     5.0911640953717    3.1003584229391;
  584.     4.6423562412342    2.8494623655914;
  585.     4.5441795231417    2.7598566308244;
  586.     4.4460028050491    2.7060931899642;
  587.     4.4039270687237    2.6344086021505;
  588.     4.3197755960729    2.5448028673835;
  589.     4.2917251051893    2.4551971326165;
  590.     4.2356241234222    2.3297491039427;
  591.     4.2075736325386    2.2043010752688;
  592.     4.2215988779804    2.0788530465950;
  593.     4.2776998597475    1.9892473118280;
  594.     4.3478260869565    1.8458781362007;
  595.     4.4319775596073    1.7383512544803;
  596.     4.5161290322581    1.7204301075269;
  597.     4.6423562412342    1.7741935483871;
  598.     4.7685834502104    1.8100358422939;
  599.     4.8527349228612    1.8817204301075;
  600.     4.9789621318373    1.9534050179211;
  601.     5.0631136044881    2.0071684587814;
  602.     5.1472650771389    2.0609318996416;
  603.     5.2314165497896    2.1505376344086;
  604.     5.2734922861150    2.1684587813620;
  605.     5.3155680224404    2.0609318996416;
  606.     5.3716690042076    1.9892473118280;
  607.     5.4417952314166    1.8817204301075;
  608.     5.5259467040673    1.7741935483871;
  609.     5.5680224403927    1.7562724014337;
  610.     5.6942496493689    1.8100358422939;
  611.     5.7784011220196    1.8637992831541;
  612.     5.8765778401122    1.9534050179211;
  613.     5.9467040673212    2.0788530465950;
  614.     5.9186535764376    2.1505376344086;
  615.     5.8625525946704    2.1146953405018;
  616.     5.7924263674614    2.0609318996416;
  617.     5.7363253856942    2.0609318996416;
  618.     5.6521739130435    2.0609318996416;
  619.     5.5960729312763    2.1146953405018;
  620.     5.5960729312763    2.2401433691756;
  621.     5.5820476858345    3.9605734767025;
  622.     5.5680224403927    4.0681003584229;
  623.     5.4698457223001    4.1397849462366;
  624.     5.3997194950912    4.2293906810036;
  625.     5.3155680224404    4.3010752688172;
  626.     5.2173913043478    4.3189964157706;
  627.     5.0771388499299    4.3010752688172;
  628.     4.9649368863955    4.3010752688172;
  629.     4.8667601683029    4.2831541218638;
  630.     4.7545582047686    4.2473118279570;
  631.     4.6143057503506    4.1756272401434;
  632.     4.5021037868163    4.0681003584229;
  633.     4.4179523141655    3.9784946236559;
  634.     4.3478260869565    3.9068100358423;
  635.     4.3057503506311    3.8530465949821;
  636.     4.2496493688640    3.7455197132616;
  637.     4.2075736325386    3.6738351254480;
  638.     4.1935483870968    3.5842293906810;
  639.     4.1795231416550    3.4587813620072;
  640.     4.2356241234222    3.4050179211470;
  641.     4.3197755960729    3.4229390681004;
  642.     4.4039270687237    3.4587813620072;
  643.     4.4740532959327    3.4946236559140;
  644.     4.5161290322581    3.6021505376344;
  645.     4.5722300140252    3.7455197132616;
  646.     4.6143057503506    3.8888888888889;
  647.     4.6704067321178    3.9964157706093;
  648.     4.7405329593268    4.0860215053763;
  649.     4.7966339410940    4.1397849462366;
  650.     4.8807854137447    4.1756272401434;
  651.     5.0210378681627    4.1935483870968;
  652.     5.1192145862553    4.1935483870968;
  653.     5.1612903225806    4.1577060931900;
  654.     5.2033660589060    4.1218637992832;
  655.     5.2594670406732    4.0681003584229;
  656.     5.2875175315568    4.0143369175627;
  657.     5.3015427769986    3.9605734767025;
  658.     5.3155680224404    3.8888888888889;
  659.     5.2875175315568    2.3835125448029;
  660.     5.2734922861150    2.3476702508961;
  661.     5.2173913043478    2.2580645161290;
  662.     4.9509116409537    2.0609318996416;
  663.     4.9228611500701    2.0430107526882;
  664.     4.8527349228612    2.0250896057348;
  665.     4.7685834502104    2.0071684587814;
  666.     4.7265077138850    2.0430107526882;
  667.     4.6844319775596    2.0609318996416;
  668.     4.6283309957924    2.0967741935484;
  669.     4.5722300140252    2.1326164874552;
  670.     4.5301542776999    2.1684587813620;
  671.     4.5301542776999    2.2759856630824;
  672.     4.5301542776999    2.4910394265233;
  673.     4.5722300140252    2.5448028673835;
  674.     4.6704067321178    2.6344086021505;
  675.     4.7545582047686    2.7240143369176;
  676.     4.8106591865358    2.7956989247312;
  677.     4.9088359046283    2.8673835125448;
  678.     4.9929873772791    2.9211469534050;
  679.     5.1051893408135    2.9569892473118;
  680.     5.1753155680224    3.0107526881720;
  681.     5.2454417952314    3.0286738351254]
  682.  
  683. px=7.75;py=7.8;fac=.6;
  684. xfpoly((px-4)*ones(101,1)+fac*psi3(:,1),..
  685.       (py-1.7)*ones(101,1)+fac*psi3(:,2),1)
  686.  
  687.  
  688. psi4=[5.0951086956522    5.7833333333333;
  689.     5.1630434782609    5.8500000000000;
  690.     5.2445652173913    5.9000000000000;
  691.     5.3260869565217    5.9166666666667;
  692.     5.4076086956522    5.9500000000000;
  693.     5.4755434782609    5.9500000000000;
  694.     5.5706521739130    5.9333333333333;
  695.     5.6793478260870    5.9166666666667;
  696.     5.7744565217391    5.9000000000000;
  697.     5.8967391304348    5.8166666666667;
  698.     5.9782608695652    5.7666666666667;
  699.     6.1005434782609    5.6500000000000;
  700.     6.1684782608696    5.5500000000000;
  701.     6.2228260869565    5.4333333333333;
  702.     6.2364130434783    5.3000000000000;
  703.     6.2500000000000    5.1833333333333;
  704.     6.2635869565217    5.0000000000000;
  705.     6.2771739130435    4.8666666666667;
  706.     6.2635869565217    4.6500000000000;
  707.     6.2092391304348    4.4333333333333;
  708.     6.1956521739130    4.3000000000000;
  709.     6.1548913043478    4.1666666666667;
  710.     6.1005434782609    4.0833333333333;
  711.     5.9918478260870    3.9666666666667;
  712.     5.9103260869565    3.9000000000000;
  713.     5.8152173913043    3.8666666666667;
  714.     5.7472826086957    3.8333333333333;
  715.     5.6385869565217    3.8166666666667;
  716.     5.5298913043478    3.8166666666667;
  717.     5.4347826086957    3.8166666666667;
  718.     5.2989130434783    3.8500000000000;
  719.     5.1766304347826    3.9000000000000;
  720.     5.0679347826087    3.9666666666667;
  721.     5.0271739130435    4.0666666666667;
  722.     5.0135869565217    4.1833333333333;
  723.     5.0407608695652    7.3833333333333;
  724.     5.0135869565217    7.4000000000000;
  725.     4.9864130434783    7.3833333333333;
  726.     4.9592391304348    7.3500000000000;
  727.     4.8505434782609    7.2833333333333;
  728.     4.7961956521739    7.2666666666667;
  729.     4.6603260869565    7.2500000000000;
  730.     4.5923913043478    7.2166666666667;
  731.     4.5244565217391    7.1666666666667;
  732.     4.5108695652174    7.0833333333333;
  733.     4.5516304347826    7.0333333333333;
  734.     4.6603260869565    7.0166666666667;
  735.     4.7146739130435    7.0000000000000;
  736.     4.7826086956522    6.9666666666667;
  737.     4.8097826086957    6.9000000000000;
  738.     4.8097826086957    6.7833333333333;
  739.     4.8369565217391    6.5833333333333;
  740.     4.8097826086957    4.1000000000000;
  741.     4.7690217391304    4.0000000000000;
  742.     4.7554347826087    3.9166666666667;
  743.     4.7418478260870    3.8666666666667;
  744.     4.7282608695652    3.8166666666667;
  745.     4.7010869565217    3.7333333333333;
  746.     4.7282608695652    3.6833333333333;
  747.     4.7826086956522    3.6833333333333;
  748.     4.8233695652174    3.7166666666667;
  749.     4.8505434782609    3.8166666666667;
  750.     4.8777173913043    3.9000000000000;
  751.     4.9048913043478    3.9000000000000;
  752.     4.9728260869565    3.8833333333333;
  753.     5.0000000000000    3.8500000000000;
  754.     5.0407608695652    3.8000000000000;
  755.     5.0815217391304    3.7833333333333;
  756.     5.1358695652174    3.7333333333333;
  757.     5.1766304347826    3.7000000000000;
  758.     5.2717391304348    3.6666666666667;
  759.     5.4076086956522    3.6500000000000;
  760.     5.5163043478261    3.6833333333333;
  761.     5.5706521739130    3.6833333333333;
  762.     5.6657608695652    3.6833333333333;
  763.     5.7744565217391    3.7166666666667;
  764.     5.8967391304348    3.7666666666667;
  765.     5.9918478260870    3.8333333333333;
  766.     6.0461956521739    3.8666666666667;
  767.     6.1548913043478    3.9333333333333;
  768.     6.2771739130435    4.0333333333333;
  769.     6.3586956521739    4.1166666666667;
  770.     6.3994565217391    4.2166666666667;
  771.     6.4538043478261    4.2833333333333;
  772.     6.4673913043478    4.2833333333333;
  773.     6.5217391304348    4.4666666666667;
  774.     6.5625000000000    4.5500000000000;
  775.     6.5625000000000    4.6000000000000;
  776.     6.6032608695652    4.7166666666667;
  777.     6.6168478260870    4.9166666666667;
  778.     6.6032608695652    5.0833333333333;
  779.     6.5625000000000    5.2833333333333;
  780.     6.5081521739130    5.4833333333333;
  781.     6.4538043478261    5.6500000000000;
  782.     6.3858695652174    5.7833333333333;
  783.     6.3043478260870    5.9166666666667;
  784.     6.1956521739130    6.0333333333333;
  785.     6.0597826086957    6.1333333333333;
  786.     5.9239130434783    6.2000000000000;
  787.     5.8152173913043    6.2333333333333;
  788.     5.7065217391304    6.2500000000000;
  789.     5.6114130434783    6.2333333333333;
  790.     5.5298913043478    6.2166666666667;
  791.     5.4076086956522    6.1666666666667;
  792.     5.3396739130435    6.1500000000000;
  793.     5.2445652173913    6.1166666666667;
  794.     5.1902173913043    6.0833333333333;
  795.     5.1358695652174    6.0666666666667;
  796.     5.0815217391304    6.0333333333333]
  797.  
  798. px=9.3;py=8.7;fac=.57;
  799. xfpoly((px-4.5)*ones(101,1)+fac*psi4(1:101,1),..
  800.       (py-3.6)*ones(101,1)+fac*psi4(1:101,2),1)
  801. xset('font',4,20)
  802. xset("pattern",10)
  803. z=-2;
  804. xstring(z-.5,8.75,'F  r  e  e  !');
  805. xset('font',3,20)
  806. xset("pattern",2)
  807. //xstring(z-1,8,'Scilab, a scientific');
  808. //xstring(z-1,7.25,'software package');
  809. xstring(z-.3,6.5,'from INRIA');
  810. xset("pattern",0)
  811. xset('font',3,2)
  812. //xstring(0.5,0.15,'Bike Simulation (see $SCI/demos/bike_demo/bike_demo.sci)');
  813.  
  814. colored=%f;
  815. colored=%f;
  816. xset('default');
  817. xset('font',2,1);
  818. //[x,y,ok]=mod_curv([],[],'axy',list(' ',' ',' '),rect);
  819.